// LSL script generated: RLV-New.Addons.DV_MAIN_Schock.lslp Sun May  2 00:09:51 Westeuropäische Sommerzeit 2010
key ToucherID;

displayMenu(){
    if ((llGetPermissions() & 16)) {
        llStartAnimation("shock");
        llSetTimerEvent(5.0);
    }
    llMessageLinked(-4,1337,"DV_BASIC",ToucherID);
}
RequestPerms(){
    if (llGetAttached()) {
        llRequestPermissions(llGetOwner(),16);
    }
}

default {

    state_entry() {
        RequestPerms();
    }

    
    link_message(integer sender,integer num,string str,key id) {
        if ((num == 1337)) {
            if ((str == llGetScriptName())) {
                llMessageLinked(-4,1338,llGetScriptName(),NULL_KEY);
                (ToucherID = id);
                displayMenu();
            }
        }
        if ((num == 1338)) {
            if ((str != llGetScriptName())) {
            }
        }
    }

  	
  	on_rez(integer num) {
        RequestPerms();
    }

  	
  	timer() {
        llSetTimerEvent(0.0);
        llStopAnimation("shock");
    }
}
